home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / TILER.ARJ / DEMODRAW.BAS next >
BASIC Source File  |  1992-02-24  |  468b  |  20 lines

  1. '    When it opens the file it reads drive C.
  2. '    If you are running it off a different drive
  3. '  then change the drive.
  4.  
  5.  
  6. OPTION BASE 1  'Make arrays start at 1
  7.  
  8. DIM pict%(500)  'Array to hold tile
  9.  
  10. OPEN "C:\TILER\DEMO\FIGHTY.CLP" FOR BINARY AS #1 LEN = 2  'Open file
  11.  
  12. FOR ctr% = 1 TO 244 STEP 2
  13.         GET #1, (ctr%), pict%((ctr% + 1) / 2)  'Fill array
  14. NEXT ctr%
  15.  
  16. SCREEN 13  'Change screen mode
  17.  
  18. PUT (100, 100), pict%, PSET  'Put tile on screen
  19.  
  20.